﻿module Rename where

import Text.XML.Xmlable

f (Just (XdcElem "X22" _), ns) = (Just (XdcElem "X22" [XtAttr "f231", XtAttr "f232"]), ns)
f (Just (XdcElem "X32" _), ns) = (Just (XdcElem "X32" [XtAttr "n1",   XtElem "n2"]), ns)
f (Just (XdcElem "X42" _), ns) = (Just (XdcElem "X42" [XtAttr "num",  XtAttr "str"]), ns)
f x = x
